home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / tax / capgains / capgains.bas next >
BASIC Source File  |  1989-04-08  |  16KB  |  656 lines
  1. REM ------------------------
  2. REM Capital Gains Calculator
  3. REM by Robert C. Moyers November 23, 1987
  4. REM Modified to conform to Tax Reform of 1986
  5. REM by C. V. Doreza April 1, 1989
  6.  
  7.     CLS
  8.     LOCATE 4, 1
  9.     PRINT SPACE$(23) + "Capital Gain/Loss Calculator"
  10.     PRINT SPACE$(31) + "Version 1.09"
  11.     LOCATE 10, 1
  12.     PRINT SPACE$(19) + "-----------------------------------"
  13.     PRINT SPACE$(19) + "|  Modified to conform to changes |"
  14.     PRINT SPACE$(19) + "|  in the Tax Reform Act of 1986  |"
  15.     PRINT SPACE$(19) + "|         by C. V. Doreza         |"
  16.     PRINT SPACE$(19) + "|                                 |"
  17.     PRINT SPACE$(19) + "| Copyright 1987 Robert C. Moyers |"
  18.     PRINT SPACE$(19) + "-----------------------------------"
  19.     LOCATE 20, 1
  20.     PRINT SPACE$(16) + "Press Enter to acknowledge copyright notice"
  21.  
  22.     now! = TIMER
  23.     DO WHILE (TIMER - now!) < 5
  24.         c$ = INKEY$
  25.         IF LEN(c$) <> 0 THEN
  26.             IF ASC(c$) = 13 THEN
  27.                 EXIT DO
  28.             END IF
  29.         END IF
  30.     LOOP
  31.     CLS
  32.        
  33. REM ---------------------------------
  34. REM 1-6 yymmdd transaction date
  35. REM 8-28 description of transaction
  36. REM 30-39 amount +buy -sell
  37. REM 41-50 price per share always +
  38. REM 52-60 number of shares +buy -sell
  39. REM ---------------------------------
  40.  
  41. REM ---------------------------------
  42. REM define arrays
  43. REM ---------------------------------
  44.     DIM pur.date$(100)
  45.     DIM pur.amount#(100)
  46.     DIM pur.price#(100)
  47.     DIM pur.shares#(100)
  48.  
  49.     DIM liq.date$(100)
  50.     DIM liq.amount#(100)
  51.     DIM liq.price#(100)
  52.     DIM liq.shares#(100)
  53.  
  54.     DIM stg.purdate$(50)
  55.     DIM stg.liqdate$(50)
  56.     DIM stg.shares#(50)
  57.     DIM stg.liqamount#(50)
  58.     DIM stg.puramount#(50)
  59.     DIM stg.gain#(50)
  60.  
  61.     DIM ltg.purdate$(50)
  62.     DIM ltg.liqdate$(50)
  63.     DIM ltg.shares#(50)
  64.     DIM ltg.liqamount#(50)
  65.     DIM ltg.puramount#(50)
  66.     DIM ltg.gain#(50)
  67.  
  68.     pur% = 0
  69.     liq% = 0
  70.     stg% = 0
  71.     ltg% = 0
  72.  
  73. REM -------------------------------------
  74. REM read input file into pur & liq arrays
  75. REM +buy -sell
  76.  
  77.     inp.filespec$ = ""
  78.     WHILE inp.filespec$ = ""
  79.         LOCATE 1, 1
  80.         PRINT SPACE$(28) + "Capital Gains Calculator"
  81.         LOCATE 5, 1
  82.         LINE INPUT "Input file spec (filename.ext) or END: ", inp.filespec$
  83.         CLS
  84.         IF inp.filespec$ = "end" OR inp.filespec$ = "END" THEN SYSTEM
  85.         IF inp.filespec$ <> "" THEN
  86.             GOSUB test.spec
  87.             IF file.error% THEN
  88.                 SOUND 440, 5
  89.                 LOCATE 4, 1
  90.                 PRINT inp.filespec$ + " not found."
  91.                 inp.filespec$ = ""
  92.             END IF
  93.         ELSE
  94.             SOUND 440, 5
  95.             LOCATE 4, 1
  96.             PRINT "Input file specification is required."
  97.         END IF
  98.     WEND
  99.  
  100.     OPEN inp.filespec$ FOR INPUT AS #1
  101.  
  102.     LOCATE 1, 1
  103.     PRINT SPACE$(28) + " Capital Gains Calculator"
  104.  
  105.     old.date$ = "000000"
  106.     WHILE NOT EOF(1)
  107.         LINE INPUT #1, inp.record$
  108.  
  109.         IF LEN(inp.record$) < 60 THEN
  110.             GOTO skiprec
  111.         END IF
  112.  
  113.         inp.date$ = MID$(inp.record$, 1, 6)
  114.         inp.year% = VAL(LEFT$(inp.date$, 2))
  115.         inp.amount# = VAL(MID$(inp.record$, 30, 10))
  116.         inp.price# = VAL(MID$(inp.record$, 41, 10))
  117.         inp.shares# = VAL(MID$(inp.record$, 52, 9))
  118.  
  119.         IF (ABS(inp.amount#) < .005) OR (ABS(inp.price#)) < .005 OR (ABS(inp.shares#) < .0005) THEN
  120.             GOTO skiprec
  121.         END IF
  122.  
  123.         IF inp.date$ < old.date$ THEN
  124.             err.message$ = "File is not in date order"
  125.             GOSUB err.handler
  126.         END IF
  127.  
  128.         old.date$ = inp.date$
  129.         IF ((inp.shares# < 0) AND (inp.amount# > 0)) OR ((inp.shares# > 0) AND (inp.amount# < 0)) THEN
  130.             err.message$ = "Amount and shares must have the same sign"
  131.             GOSUB err.handler
  132.         END IF
  133.  
  134.         IF inp.shares# < -.005 THEN
  135.             liq% = liq% + 1
  136.             IF liq% > 100 THEN
  137.                 CLS
  138.                 PRINT "Too many liquidations, program maximum is 100"
  139.                 SYSTEM
  140.             END IF
  141.  
  142.             liq.date$(liq%) = inp.date$
  143.             liq.amount#(liq%) = 0 - inp.amount#
  144.             liq.price#(liq%) = inp.price#
  145.             liq.shares#(liq%) = 0 - inp.shares#
  146.         ELSE
  147.             IF inp.shares# > .005 THEN
  148.                 pur% = pur% + 1
  149.                 IF pur% > 100 THEN
  150.                     CLS
  151.                     PRINT "Too many purchases, program maximum is 100"
  152.                     SYSTEM
  153.                 END IF
  154.                 pur.date$(pur%) = inp.date$
  155.                 pur.amount#(pur%) = inp.amount#
  156.                 pur.price#(pur%) = inp.price#
  157.                 pur.shares#(pur%) = inp.shares#
  158.             END IF
  159.         END IF
  160. skiprec:
  161.     WEND
  162.  
  163.     liqmax% = liq%
  164.     purmax% = pur%
  165.     purmin% = 1
  166.  
  167. REM ---------------------------------
  168. REM first-in, first-out
  169. REM short term if held for 6 months or less (purchased before 1988)
  170. REM short term if held for 12 months or less (purchased after 1988)
  171.  
  172.     CLS
  173.     LOCATE 1, 1
  174.     PRINT SPACE$(28) + "Capital Gains Calculator"
  175.  
  176.     FOR liq% = 1 TO liqmax%
  177.         liq.yy% = VAL(MID$(liq.date$(liq%), 1, 2))
  178.         liq.mm% = VAL(MID$(liq.date$(liq%), 3, 2))
  179.         liq.dd% = VAL(MID$(liq.date$(liq%), 5, 2))
  180.  
  181.         FOR pur% = purmin% TO purmax%
  182.             pur.yy% = VAL(MID$(pur.date$(pur%), 1, 2))
  183.             puryear% = pur.yy%
  184.             pur.mm% = VAL(MID$(pur.date$(pur%), 3, 2))
  185.             pur.dd% = VAL(MID$(pur.date$(pur%), 5, 2))
  186.  
  187.             IF liq.shares#(liq%) > pur.shares#(pur%) THEN
  188.                 trn.shares# = pur.shares#(pur%)
  189.             ELSE
  190.                 trn.shares# = liq.shares#(liq%)
  191.             END IF
  192.  
  193.             pur.shares#(pur%) = pur.shares#(pur%) - trn.shares#
  194.             liq.shares#(liq%) = liq.shares#(liq%) - trn.shares#
  195.  
  196.             IF pur.shares#(pur%) < .0005 THEN
  197.                 purmin% = pur% + 1
  198.                 trn.puramount# = pur.amount#(pur%)
  199.             ELSE
  200.                 trn.puramount# = pur.price#(pur%) * trn.shares#
  201.                 trn.puramount# = INT(trn.puramount# * 100 + .5) / 100
  202.             END IF
  203.  
  204.             pur.amount#(pur%) = pur.amount#(pur%) - trn.puramount#
  205.  
  206.             IF liq.shares#(liq%) < .0005 THEN
  207.                 trn.liqamount# = liq.amount#(liq%)
  208.             ELSE
  209.                 trn.liqamount# = liq.price#(liq%) * trn.shares#
  210.                 trn.liqamount# = INT(trn.liqamount# * 100 + .5) / 100
  211.             END IF
  212.  
  213.             liq.amount#(liq%) = liq.amount#(liq%) - trn.liqamount#
  214.  
  215.             WHILE pur.yy% < liq.yy%
  216.                 pur.mm% = pur.mm% - 12
  217.                 pur.yy% = pur.yy% + 1
  218.             WEND
  219.  
  220.             dif.x% = (liq.mm% - pur.mm%) * 100 + liq.dd% - pur.dd%
  221.             IF dif.x% >= 1200 OR ((dif.x% >= 600) AND (puryear% < 88)) THEN
  222.                 ltg% = ltg% + 1
  223.                 ltg.purdate$(ltg%) = pur.date$(pur%)
  224.                 ltg.liqdate$(ltg%) = liq.date$(liq%)
  225.                 ltg.shares#(ltg%) = trn.shares#
  226.                 ltg.liqamount#(ltg%) = trn.liqamount#
  227.                 ltg.puramount#(ltg%) = trn.puramount#
  228.                 ltg.gain#(ltg%) = ltg.liqamount#(ltg%) - ltg.puramount#(ltg%)
  229.             ELSE
  230.                 stg% = stg% + 1
  231.                 stg.purdate$(stg%) = pur.date$(pur%)
  232.                 stg.liqdate$(stg%) = liq.date$(liq%)
  233.                 stg.shares#(stg%) = trn.shares#
  234.                 stg.liqamount#(stg%) = trn.liqamount#
  235.                 stg.puramount#(stg%) = trn.puramount#
  236.                 stg.gain#(stg%) = stg.liqamount#(stg%) - stg.puramount#(stg%)
  237.             END IF
  238.  
  239.             IF liq.shares#(liq%) < .0005 THEN
  240.                 GOTO nextliq
  241.             END IF
  242.         NEXT
  243. nextliq:
  244.     NEXT
  245.  
  246. REM -----------------------------------
  247. REM Ask user if 1 year or for all
  248.  
  249.     select.by.year$ = ""
  250.     WHILE select.by.year$ = ""
  251.         LOCATE 5, 1
  252.            
  253.         INPUT "Do you want limit computation of gains to a particular year"; select.by.year$
  254.         select.by.year$ = LEFT$(select.by.year$, 1)
  255.         IF select.by.year$ = "y" THEN select.by.year$ = "Y"
  256.         IF select.by.year$ = "" THEN
  257.             SOUND 440, 5
  258.         END IF
  259.     WEND
  260.  
  261.     tst.year% = 0
  262.     WHILE (tst.year% <= 70) AND (select.by.year$ = "Y")
  263.         LOCATE 6, 1
  264.         INPUT "Please enter year for computation of gains: ", tst.year%
  265.         IF tst.year% > 1900 THEN
  266.             tst.year% = tst.year% - 1900
  267.         END IF
  268.         IF tst.year% <= 70 THEN
  269.             SOUND 440, 5
  270.         END IF
  271.     WEND
  272.  
  273. REM ----------------------------------
  274. REM print gains
  275.  
  276.     stgmin% = 1
  277.     ltgmin% = 1
  278.     stgmax% = stg%
  279.     ltgmax% = ltg%
  280.  
  281.     IF stgmax% > 0 AND select.by.year$ = "Y" THEN
  282.         stgmin% = 0
  283.         FOR stg% = 1 TO stgmax%
  284.             stg.year% = VAL(MID$(stg.liqdate$(stg%), 1, 2))
  285.             IF stg.year% = tst.year% THEN
  286.                 stgmin% = stg%
  287.                 EXIT FOR
  288.             END IF
  289.         NEXT
  290.         IF stgmin% > 0 THEN
  291.  
  292.             FOR stg% = stgmin% + 1 TO stgmax%
  293.                 stg.year% = VAL(MID$(stg.liqdate$(stg%), 1, 2))
  294.                 IF stg.year% > tst.year% THEN
  295.                     stgmax% = stg% - 1
  296.                     EXIT FOR
  297.                 END IF
  298.             NEXT
  299.            
  300.         END IF
  301.     END IF
  302.  
  303.     IF ltgmax% > 0 AND select.by.year$ = "Y" THEN
  304.         ltgmin% = 0
  305.         FOR ltg% = 1 TO ltgmax%
  306.             ltg.year% = VAL(MID$(ltg.liqdate$(ltg%), 1, 2))
  307.             IF ltg.year% = tst.year% THEN
  308.                 ltgmin% = ltg%
  309.                 EXIT FOR
  310.             END IF
  311.         NEXT
  312.         IF ltgmin% > 0 THEN
  313.             FOR ltg% = ltgmin% + 1 TO ltgmax%
  314.                 ltg.year% = VAL(MID$(ltg.liqdate$(ltg%), 1, 2))
  315.                 IF ltg.year%